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= PARSE DTS COMMAND LINE 


16-SEP-1984 01:25:31 


a 
OMMAND FER ROUTI 
E ROUTIN --PARAM ir abel ON AND DEFAULTING 
PARS NE--QUALIE 
a os iS ==QUALIE Ries NEVALUATION 


TST SMATC ROUT t NES 
TST ScvTU More’ ° "CONVERT TONSTONED DECIMAL TO BINARY 


VAX/VMS Macro v04-00 


Page 
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VETER SPARSE 


= PARSE DTS COMMAND LINE os a $ or 188e gi: $3: 3} Sa 


Tire styer ae - PARSE DTS COMMAND LINE 
- IDEN v04-0 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 


ALL RIGHTS RESERVED. 


TRANSFERRED. 


CORPORATION. 


; "FACILITY: DTS/DTR DECNET TEST PACKAGE 


; MODIFICATIONS: 


SOONAMNE AN $ O OONA NE WN  O ODNAUE WP "OOO NOU SU — 


FAA AAAAAHALIPINPININPINPINPONININYND 9 2 OOO a oe 


DIGITAL EQUIPRENT EORPORATION, MAYNARD. MASSACHUSETTS. 


; AUTHOR: JAMES A. KRYCKA, CREATION DATE: 11-AUG-77 


cro V04-0 
€%D TSPARSE .MAR; 1 


PARRA ARARAASAARLAAALALLL LALLA TELA LAA AREER ARERR RR EERE RRR RRR EEE ER EER SE OS 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
LY IN ACCORDANCE WITH THE TERMS OF sven ICENSE AND WITH THE 
IN T C T NOTICE. THIS SOFTWARE OR ANY OTHER 
corde? THEREOF one ve BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. ITLE TO AND OWNERSHIP OF THE SOF TUARE I 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


; ABSTRACT: THIS MODULE PARSES A COMMAND LINE INPUT BY DTS. 
; ENVIRONMENT: DTS/DTR RUN IN USER MODE AND REQUIRE NETWORK PRIVILEGE. 
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vou-000 DECLARATIONS nN LINE BrRe 1986 00:92:35 EDieprR.skeabrspanse.mar:1 2% (3, 


? ~SBTTL DECLARATIONS 
4 
4 
4 
4 
& 
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INCLUDE FILES: 


FLGDEF 3 DEFINE COMMAND PARSE FLAGS 
CMDDEF ; DEFINE COMMAND LANGUAGE SYMBOLS 
VLDDEF ; DEFINE VALID QUALIFIER FL 

eLIF NE K_LIST_MEB, .LIST MEB ; DEFINED IN DTPREFIX.MAR 


EQUATED SYMBOLS: 
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15 
ND BARSE ROUTINE "OrS een 18be 80:52,35 ED TSDTR. eRe TDTSCAR SS MAR; 1 


set it 13! PARSE = COMMAND PARSE ROUTINE 
TSTSCODE NOWRT 
; SYMBOL FOR DEBUGGING PURPOSES 


3:44 
; FUNCTIONAL DESCRIPTION: 


NONE 


; CALLING SEQUENCE: 


CALL #0, TSTSPARSE 


; INPUT PARAMETERS: 


R8 THE ADDRESS OF THE NEXT CHARACTER IN THE BUFFER 
R9 THE ADDRESS OF THE END OF THE BUFFER + 1 


; IMPLICIT INPUTS: 


NONE 


; OUTPUT PARAMETERS: 


RO-R9 DESTROYED 
R10 COMMAND PARAMETER VALUE (TESTTYPE) 
R11 UPDATED PARSE FLAGS 


; IMPLICIT OUTPUTS: 


TST$GB_BACK 
$GB- m He mee 
Bh Lo 


AS ata at a 
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; COMPLETION CODES: 


; SIDE EFFECTS: 


-ENTRY TSTSPARSE ,*M<> ; ENTRY POINT 
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K 5 
vbe-008 TSTSPARSE = COMMAND PARSE ROUTINE SrSEP=196¢ 00:53:35 EDtgD TR. SeeSprspanse.man.1 "@8° (4, 


117 ; 
ig $ DETERMINE IF THE NEXT SYNTACTICAL ELEMENT OF THE COMMAND L INE IS A 
119 ; PARAMETER OR QUALIFIER, OR IF THE END OF THE INPUT LINE HAS BEEN 
p ; REACHED. 
1 e 
1 ‘ NEXT_ELEMENT: : 
02F7 30 124 BSB TSTSNEXTCHAR + GET CHARACTER 
125 REEXAMINE CHA ; 
1 6 SCAcEB SELECTOR=RO, DISPL=<- + CHARACTER: 
EN DOF LINE= =; END-OF LINE 
8 ; 1 § PARSE _ERROR- ; EQUAL_SIGN OR COLON 
130 SPACE <OR_TAB- 5 SPACE"O 
! , 3: NONE OF THE ABOVE 
1 1 ‘ 
O13 134 ; 
4 135 ; A SPACE OR TAB HAS BEEN ENCOUNTERED. THIS IMPLIES THAT A QUALIFIER (/) 
13° («1 $i + CAN NOT IMMEDIATELY FOLLOW. ANOTHER SFACE OR TAB, A PARAMETER, OR A 
tt ; QUALIFIER MAY FOLLOW. 
1 139 ° 
0013 140 SPACE_OR_TAB: ; 
5B (08) 88 901 141 BISB2  #FLG_M_DE LIMITER, R11 ; SET DELIMITER FLAG 
EA 11 001 148 BRB EXT“ECEMENT + CONTINUE 
0018 14a 
0018 eg A QUALIFIER FOLLOWS. DISCARD THE SLASH DELIMITER AND PROCEED. 
a 47° 
1 148 QUAL: 3 
1E 5B 03 €0 or 129 BBS #FLG V DELIMITER.R11,- ; SLASH CANNOT FOLLOW 
1¢ 0150 PARSE ERROR : SPACE OR TAB 
OOFD 30 gic 151 BSBW QUALIFIER + PROCESS QUALIFIER 
E411 IF 138 BRB REEXAMINE _CHAR : PROCESS QUALIFIER DELIMITER 
1 154; 
138 : A PARAMETER FOLLOWS. THE COMMAND CAN HAVE ONLY ONE PARAMETER. 
5 1 139 ‘ 
cs : PARAM: ; 
15 58 02 €2 1 15 BBSS #FLG_V_ PARAMETER, ,R11,- : ERROR IF NOT FIRST PARAMETER 
58 08 8A ; 18 BICB2 #FLG A _DELIMITER,R11 ; CLEAR DELIMITER FLAG 
14 10 16¢ BSBB. Ss: PARAMETER ; PROCESS PARAMETER 
oo «(1 A 163 BRB REEXAMINE_CHAR + PROCESS PARAMETER DELIMITER 
C 165; 
¢ 166 + THE END OF THE LINE HAS. BEEN REACHED. SET FLA g IF THE COMMAND LINE 
¢ 16 + REQUIRES ANOTHER LINE OF INPUT; OTHERWISE, DETERMINE WHETHER The 
c i ; REQUIRED PARAMETER HAS OOEEN RECEIVED. 
¢ 170° 
€ 171 END_OF_LINE: : 
2. 51°~=«o9 ¢ 17 CMPB RI, #*A/=/ > IS COMMAND LINE CONTINUED? 
05 «13 a BEQLu =: 108 : YES 


—_—$$———— 


| L 5 
vouep08 RSE TSTSPARSE © EORMAND PARSE ROUTINE "OrSEe=13Rs Bo:s3i84 EOTSUTR. eReSBreoance man: 72% (2) 


05 58 02 «€5 124 BBCC #FLG_V_PARAMETER,R11,- ; IT IS AN ERROR IF NO 
1 PARSE_ERROR ; PARAMETER HAS BEEN PROCESSED 
4 176 R + EXIT TO DTSMAIN 
5B 4(02~=COBB 6 177 10$:  BISB2 #FLG_M_MULTILINE,R11 § ; SET CONTINUATION FLAG 
4 178 RET : EXIT TO DTSMAIN 
A i 
A i ; AN ERROR HAS BEEN ENCOUNTERED DURING COMMAND LINE PARSING 
A 183° 
A 184 PARSE_ERRO : CONTROL POINT 
5B 401 «883A 185 61882 #FLG_M_PARSERROR,R11 =; SET PARSE ERROR FLAG 
4 0030 186 : EXIT TO DTSMAIN 


OMMAND 
NE--PARAM 
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~SBTTL PARSE ROUTINE=-PARAMETER EVALUATION AND DEF AULTING 


AX/VMS 
DTSDTR.S 


Macro V04-00 
SRCIDTSPARSE .MAR; 1 


rm 


; PARAMETER IS A SPECIAL PURPOSE SUBROUTINE 19 PARSE THE COMMAND PARAMETER 
‘ AND TO APPLY PARAMETER QUALIFIER DEFUALTS. THE PARAMETER STRING IS 
; STORED IN TST$GT_KEYWORD. 
PARAMETER: : CONTROL POINT 
: 9090" F MOVAL W*TST$GT_KEYWORD,R2 ; GET ADDRESS OF BUFFER 
62 20202020 &F MOVL &#*A/ 7, (R2) t FILL KEYWORD STRING WITH SPACES 
3 CLRL OR + ZERO CHARACT UNT 
11 BRB PARAM_CHAR : STORE FIRST CHARACTER 
PARAM_LOOP: : 
BSB TSTSNEXTCHAR + GET NEXT CHARACTER 
SCASEB SELECTOR=RO DISPL=<- —; CHARACTER: 
ARAM_DELIMITER-'; END-OF-LINE 
PARAMS DELIMITER= ; SLASH 
PARSE -ERROR= EQUAL_SIGN OR COLON 
PARAM"DELIMITER=" ; SPACE-OR 
PARAM” CHAR= NONE OF THE ABOVE 


> 
PARAM_CHAR: 
cM 
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04 53 O01 PL =—soR3, #4 + STORE ONLY FARST 4 CHARACTERS 
EA 13 BEQLU PARAM_LOOP + IGNORE THIS CHARACTER 
82 51 90 MOVB = R1, (R2)+ : STORE CHARACTER 
53 D6 INCL RB : INCREMENT CHARACTER COUNT 
é 11 BRB PARAM_LOOP + CONTINU 
PARAM_DELIMITER: : 
54 OOOO'CF DE MOVAL W*TSTSAZ_PARAM,R : GET ADDRESS OF KEYWORD TABL 
56 ©0000" CF DE MOVAL *TSTS$GT cert R6 : GET ADDRESS OF 4 RING TO MATCH 
028c 40-30 SBW. Sf STSMA + FIND TABLE INDEX OF KEYWORD 
0000'cr 55 F6 CVTLB Re Ue TSTSGB. TEST + UPDATE TESTTYP 
A 55 00 OVL  R5,R10 : SAVE IN R10 AS RETURN VALUE!!! 
: : APPLY PARAMETER QUALIF LER DEF AULTS (NOT COMMAND QUALIFIER DEFAULTS) 
; AND DENOTE VALID (PERMITTED) QUALIFIIJERS FOR THE COMMAND. 
SCASEB SELECTOR=R10,DISPL=<- ; TEST: 
CONNTEST= : CONNECT TEST 
DATATEST= : DATA TEST 
DISCTEST- + DISCONNECT TEST 
INTETEST= $ INTERRUPT TEST 
MISCTEST- $ MISCELLANEOUS TEST 
E CONNTEST: ; DEFAULTS FOR: 
000' CF 00 9 MOVB = #DFT_K_RETURN.CO,W*TSTSGB RETURN ; RETURN ALIFIER 
000'CF 01 9 OVE #DFT“K-TYPE CO,W‘TSTSGB_TYPE YP ALIFIER 
C BISL2 #VLD"M“NORETURN- ; DENOTE’ ‘VALID QUALIFIERS: 
VLD“ MRE TURN : 
9 iVLD “M7 TYPE,= ; 
0000'CF 00409000 8F w*TST$GL_VALID ; 
05 RSB ; EXIT 
Ag DATATEST: ; DEFAULTS FOR: 
0000'cF 00 90 GOA MOVB #DFT_K_BACK,W*TST$GB_BACK ; BACK PRESSURE CONTROL 
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B 6 
TSTSDTSPARSE = PARSE DTS COMMAND LINE 16-SEP-1984 01:25: AX/VMS Macro V04-00 Page 1 
yeu p08 PARSE ROUTINE=--QUALIFIER EVALUATION ety 7 84:83:31 DTSDTR.SRCJDTSPARSE.MAR; 1 ° (8) T 
11¢ 36 .SBTTL PARSE ROUTINE=-QUALIFIER EVALUATION 
11¢ 38 3 QUALIFIER 1S A SPECIAL PURPOSE SUBROUTINE TO PARSE A COMMAND QUALIFIER OR 
11€ 299 ; A PARAMETER QUALIFIER. THE QUALIFIER STRING IS STORED IN TST$GT_KEYWORD 
16 0 ; AND THE ASSOCIATED QUALIFIER VALUE (IF ANY) IS STORED IN TSTS$GT~VALUE. 
11¢ ’ 
11¢ : QUALIFIER: : CONTROL POINT 
11¢ 4 FILLBUF DSTeWeTSTSGT_KEYWORD- : FILL KEYWORD AND QUALIFIER 
11¢ 5 SIZE=#12= : VALUE STRINGS WITH SPACES 
116 : CHAR=<#*A/ /> : NOTE RO-RS ARE DESTROYED! 
52 0000" Cf DE 01 MOVAL W*TSTSGT_KEYWORD,R2 : GET ADDRESS OF BUFFE 
3 04 A , faeta Loost R3 t ZERO CHARACTER COUNT 
01cD 30 O12C 310 ’ w -TSTSNEXTCHAR : GET NEXT CHARACTER 
12F 311 QUAL_REEXAMINE: ; 
12F 1 SCASEB SELECTOR=RO,DISPL=<- : CHARACTER: 
10F 31 QUAL_DELIMITER- ; END-OF-LINE 
: F 6314 QUAL“DELIMITER= : SLA 
F 6-315 QUAL "VALUE= ; EQUAL_SIGN OR COLON 
: F 1 QUAL“DELIMITER- ; SPACE~OR TAB 
0 F : QUAL “CHAR + NONE OF THE ABOVE 
D i§ QUAL _VALUE : $ DISCARD THE EQUAL_SIGN OR COLON 
52. O000'CF dE 0 MOVAL W*TSTSGT_VALUE,R2 : GET ADDRESS OF QUALIFIER VALUE 
534 1 afer Loser R3 + ZERO CHARACTER COUNT 
0185 30 4 -""BSBW.  TSTSNEXTCHAR t GET NEXT CHARACTER 
0 4 SCASEB SELECTOR=RO,DISPL=<- : CHARACTER: 
0 5 QUAL_REEXAMINE= ; END-OF-LINE 
Q 6 QUAL ~REEXAMINE= : SL 
VALUE_CHAR- ; EQUAL_SIGN OR COLON 
8 8 QUAL_REEXAMINE= ; SPACE-OR 
; . VALUE_CHAR= + NONE OF THE ABOVE 
1 VALUE_CHAR: : 
08 53 1 : CMPL ~=sR3, #8 : STORE ONLY FIRST 8 CHARACTERS 
A 13 BEQLU VALUE_LOOP : IGNORE THIS CHARACTER 
82 51 90 4 MOVE = R1, (R2)¢ : STORE C 
3 06 5 INCL : INCREMENT CHARACTER COUNT 
é3 11 6 RB VALUE _LOOP : CONTINUE 
QUAL_CHAR ; 
04 53 01 : PL = R3, #G : STORE ONLY FIRST 4 CHARACTERS 
é i BEQLU QUAL _LOOP : IGNORE THIS CHARACTER 
82 51 40 MOVE R1, (Ro) : $T R | 
3 06 41 INCL OR : IN NT CHARACTER COUNT | 
3 4g BRB QUAL _LOOP : ¢ 
43 QUAL_DELIMITER: ; | 
4 "CR ODE 4 MOVAL  W*TSTSAZ_QUAL,R4 : g OF KEYWORD TABLE 
r3 "CF p 45 MOVAL W*TSTSGT-KEYWORD,R6 ; OF STRING TO MATCH | 
1BA 46 BSBW = sTSTSMA 3; F INDEX OF KEY 
03 0000'CF 55 4 BBS R5,W°TSTSGL_VALID,10$ : 1 ALID QUALIFIER? 
FEB? 48 BRW PARSE_ERROR : THIS CONTEXT 
1 49 10$:  BSBB QUAL_BISPATCH ; FIER SPECIFIC CODE 
0 50 RSB ; 
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TS COMMAND LINE “-SEP-1984 01:25: AX/VMS Macro V04-00 Page 
TINE=-QUALIFIER VALUE EVALUATIO ~$Fbr 38 8:83:33 DTSDTR.SRCIDTSPARSE .MAR; 1 . 
; -SBTTL PARSE ROUTINE=-QUALIFIER VALUE EVALUATION 
3% 
3 ; QUAL DISPATCH IS_A SPECIAL PURPOSE SUBROUTINE THAT CONTAINS QUALIFIER 
g: SPECTFIC CODE. IT EXISTS AS A SUBROUT:NE TO UTILIZE "'RSB'’ TO RETURN 
3 FROM A “'CASE’’ INSTRUCTION INSTEAD OF USING ‘'BRW’’. 
5 o 
60 QUAL_DISPATCH: ; CONTROL POINT 
61 MOVAL W*TSTSGT_VALUE,R6 ; GET ADDRESS OF QUALIFIER VALUE 
86 ; _STRING FOR POSSIBLE USE BY TSTSMATCH 
° SCASEB SELECTOR=R5,DISPL=<- ; DISPATCH TO APPROPRIATE CODE 
4 ACK= ; BACK PRESSURE CONTROL 
65 DISPLAY- i DISPLAY EACH MESSAGE 
§ FLOW- 3 FLOW CONTROL 
6 HOURS= ; TIME OF TEST IN HOURS 
of MINUTES- ; TIME OF TEST IN MINUTES 
§ NAK= 3 NAK_ CONTROL 
0 NOBACK= ; NO BACK PRESSURE CONTROL 
71 NODENAME- ; NODENAME 
7 NODISPLAY= ; DO NOT DISPLAY EACH MESSAGE 
7 NOF LOW- 3 NO FLOW CONTROL 
74 ONAK= 3 NO NAK CONTROL 
75 NOPRINT=- ; NO PRINT OPTION FOR DTR 
7 RETURN- ; NO USERDATA TO RETURN 
7 NOSTATISTICS=- ; NO STATISTICS DESIRED 
7 PRINT= ; PRIN’ OPTION FOR DTR 
7 RETURN- ; RETURN USERDATA 
0 RQUEUE- 3 OTR QUEUE 
1 SECONDS- ; TIME OF TEST IN SECONDS 
8 SIZE- 3 MESSAGE SIZE 
8 SPEED- : SPEED OF COMMUNICATIONS LINE 
4 SQUEUE- ; OTS QUEUE 
5 STATISTICS- : STATISTICS DESIRED 
: 5 TYPE- ; TEST TYPE (SUBFUNCTION) 
es BACK: ; PROCESS BACK QUALIFIER 
MOVZBL #MAX_K_BACK,R7 ; DEFINE MAXIMUM VAL 
90 BSBW §=s-s TSTS$CvTu_DT6 ; CONVERT DIGITS TO BINARY VALUE 
91 CVTILB = R6,W*TSTSGB_BACK 3 UPDATE BACK PRESSURE CONTROL 
3 RSB ; EXIT 
94 DISPLAY: ; PROCESS DISPLAY QUALIFIER 
95 MOVL $ #MAX_K_DISPLAY,R7 : DEFINE MAXIMUM VALU 
36 BSBW 8=©6TSTSCVTU_DTB ; CONVERT DIGITS TO BINARY VALUE 
9 CVTILB «= R6,W* TSTSGB_DISPLAY ; UPDATE DISPLAY VALUE 
4 RSB 3 EXIT 
400 FLOW: ; PROCESS FLOW QUALIFIER VALUE 
4 MOVAL W*TSTSAZ_FLOW,R4 ; GET ADDRESS OF KEYWORD TABLE 
é ¢ BSB | prsen ; FIND TABLE INDEX OF KEYWORD 
404 CVILB) «= R5,W*TSTSGB_FLOW ; UPDATE FLOW CONTROL FIELD 
2 5 $B ; EXIT 
407 HOURS ; PROCESS HOURS QUALIFIER VALUE 
408 MOVZWL #3600,-(SP) ; # SECONDS IN 1 HOUR 
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TSTSDTSPARSE = PARSE DTS COMMAND LINE 16-SEP-1984 01:25: AX/VMS Macro V04-00 Page 10 T 
yeu p08 PARSE ROUTINE OUAT IF LER VALUE EVALUATIO g: oats 84:33:33 LOTSDTR. SREIDTSPARSE MAR: 1 . (6) V 
57 64 gr 9 1EB 49 MOVZBL #<MAX_K_TIME_DA/3600>,R7 ; DEFINE MAXIMUM HOUR VALUE 
008A = 31 TEE 41 BRW TIME 3 BRANCH TO COMMON CODE 
iF aig MINUTES : PROCESS MINUTES QUALIFIER VALUE 
76 C OA OTF 41 MOVZBL #60,-(SP) 3 # SECONDS IN 1 MINUTE 
57 1 70 F ¢ 175 414 MOVZWL #<MAX_K_TIME_DA/60>,R7 ; DEFINE MAXIMUM MINUTE VALUE 
07F iF 419 BRW TIME 3 BRANCH TO COMMON CODE 
1FD “19 NAK: : PROCESS NAK QUALIFIER 
57 89 BF 9 1FD «04418 MOVZBL #MAX_K_NAK,R7 : DEFINE MAXIMUM VALUE 
14D ©6330 1 4619 BSBW ©=s TS T$CVvTu OfB : CONVERT DIGITS TO BINARY VALUE 
QO00'CF 56 Fo re p CVTLB = R6,W* TSTSGB_NAK : UPDATE NAK CONTROL 
0 H 4 $B : EXIT 
OA 4 5 NOBACK : : PROCESS NOBACK QUALIFIER 
A 424 ASSUME VAL_K_BACK_NO,EQ,0 : 
QOOO'CF 946 O20A 425 CLRB = W* TSTSGB_BACK : UPDATE BACK PRESSURE CONTROL VALUE 
05 OE ‘ $ RSB : EXIT 
6 OF 428 NODENAME: : PROCESS NODENAME QUALIFIER VALUE 
OF 429 ; A NODENAME OF 0-6 CHARACTERS 
F 630 : 1S ALLOWE 
06 53 «01 OF 431 “CMPL «=—s RB, #6 : IS STRING TOO LONG? 
9 1B 0212 4 é BLEQU : NO, USE ENTERED VALUE 
FE 31 0214 4 BRW PARSE _ERROR : Yes 
0 BB 0217 434 108: PUSHR #*M<RO,R1> 3: SAVE RO AND R1 
19 4635 : NODENAME IS STORED AS A 
19 4 6 : COUNTED ASCII STRING 
0000'cF 33 9 19 4 MOVB R3.W"TSTSGT_NODENAME : STORE LENGTH OF STRING 
0000'cr 53 «2 If 4 8 MOVC3 R3,W*TST$GT-VALUE,- : STORE STRING 
0001 * CF 4 W*TSTSGT_NODENAME+1 : NOTE RO = RS ARE DESTROYED! 
03 BA 440 POPR #*M<RO,RT> : RESTORE RO AND R1 
5 441 RSB : EXIT 
9 443 NODISPLAY: : PROCESS NODISPLAY QUALIFIER 
9 664 ASSUME VAL_K_DISP_NO,EQ,0 : 
QO0O'CF 9% 9 445 W*TSTSGB_DISPLAY 3 UPDATE DISPLAY VALUE 
05 p 4 RSB 3 EXIT 
— 448 NOFLOW: : PROCESS NOFLOW QUALIFIER 
E 46 ASSUME VAL_K_FLOW_NO,EQ,0 : 
O000'CF 9% 450 CLRB 33s W* TSTSGB_FCOW ; UPDATE FLOW CONTROL VALUE 
05 431 RSB : EXIT 
£3 NONAK : z PROCESS NONAK QUALIFIER 
454 ASSUME VAL_K_NAK_NO,EQ,0 : 
0000'CF 9% 455 CLRB = W* TSTSGB_RAK : UPDATE NAK CONTROL VALUE 
05 ‘ $ RSB : EXIT 
4 j NOPRINT: : PROCESS NOPRINT QUALIFIER 
45 ASSUME VAL_K_PRIN_NO,EQ,0 : 
0000'CF 9% 4 9 CLRB = W* TSTSGB_PRINT + UDPATE PRINT VALUE 
05 ¢ ‘ RSB 3 EXIT 
Dp 4 j NORE TURN : PROCESS NORETURN QUALIFIER 
D 464 ASSUME VAL_K_RETU_NO,E0,0 3 
0000'CF 9% D 465 LRB sw * TSTSGB_RETURN + UPDATE RETURN VALUE 


£25: Macro V04-00 Page 11 
= PARSE DIS COMMAND LINE nLuatio 'S-SEP=1986 00:52:35 EDYSDTR. SRESDTSPARSE «MAR: 1 (6) 
TRTSRT SPARSE PARSE ROUTINE=-QUALIFIER VALUE EVAL ge 
° O5¢) 28 ms ; PROCESS NOSTATISTICS QUALIFIER | 
et S anal (330 VAL ok STAT NO-EQ.0 : UPDATE STATISTICS VALUE | 
"CF 94 Ope = 4 - : EXIT 
ate d ‘7 Bes : ,PROCESS PRINT QUALIFIER | 
g é 
septate ne te ate a ; PROCESS RETURN QUALIFIER VALUE | 
d 7 RETURN: R& ; GET ADDRESS OF KEYWORD TABL 
sy a | 299 Bool TSTSMATCR ; FIND TABLE INDEX OF KEYWORD | 
54 S§ G7 BSBW : 
: USERDATA VALUE 
' mes rs 38 cB (VILB  RS,W*TSTSGB_RETURN : UPDATE RETURN 
0000'C RSB F 
0 ge. ; QUALIFIER VALUE 
ope? re RO SUITS Stes 
BO cee OR? CAPS IVALKTEST.BATA = ‘IS IT 
at 30 doo *' «Evite Re.u*TSTSQB_ ROUEUE i UPDATE FLOW CON | 
prethe 03 i 634 aa PROCESS SECONDS QUAL IF JER VALUE | 
. ° N 
15 494 OMS ay ot a csp) : BERING MAXIMUM SECOND VALUE 
eo te «BS RStE abe MOVL = #MAX_K_TIME_DA,R7 ¢ DEFINE BAX! 
57 00057E40 8F 00 027 TIME: ; CONVERT DIGITS TO BINARY VALUE 
re 437 MEY ocey  rstsevtu_ore a ATS A A 
os MULLS RG, (SP)+ZW"TSTSGL_SECONDS £ CA | 
ee 5 Bees 498 a PROCESS SIZE QUALIFIER VALUE 
6 $01 size: #MAX_K_SIZE_DA,R? i DEFINE MAXIMUM VALUE FOR DATA 
- FE & Be CPB RIO,BVAL_K_TESf_DATA =; SM ie | 
Be OTS RSee | eke BEQLU : NO, DEFINE MAX VALUE FOR INT | 
10 0 9295 508 By TSTBEvTU bre «=: COvERT DIGITS YO BINARY VALUE | 
0000 088 i 96 507 vitw  Re.weYSt SOU. SIZE i UPDATE MES | 
- vs a 5 we ; PROCESS 7 At A VALUE | 
. 9¢ $10 SPEED: aA SPEED.R7 ; CORVERT DIGITS YO BINARY VALUE | 
ad pore, One : is ig ROVE Re.U*TSTSCL. SPEED ¢ UODATE BAUD R | 
0000 CF AB O#S 14 RSB 
QUALIFIER | 
a 
AC 31 10,9VAL_K_TEST_DATA =; IS ; 
oi Sh eae 19 searu 08, 7 | NO MDEFINE’RAX VALUE FOR INT TEST | 
; 1 3 MOVL #RAY K SQUELE INR + CONVERT DIGITS TO BINARY VALUE | 
r 00 BA 1 108: GVILB RE.UFYSYSGB-SQUEUE UPDATE DTS Qu | 
0000'CF 56 F6 O2BA 2 | 


<—od 


F 6 
Me 2 aia PARSE ROUTINE COUACIFICR VALUE EVALUATIO 'ScSEP=19R6 80:53:35 YorSbTR.cacdoreoance.mar;1 29° % 


05 OF ; RSB ; EXIT 
C 5 STATISTICS: ; PROCESS ay ISTICS QUA atte 
QOOO'CF 01 + C § MOVB #VAL_K_STAT_YES, w*TSTSGB_ STAT. ; UPDATE STATISTICS VALUE 
: RSB 3 EXIT 
C 3 TYPE: ; PROCESS TYPE QUALIFIER VALUE 
C ? SCASEB SELECTOR=R10,DISPL=<- ; TEST: 
C 10$- ; CONNECT TEST 
C § $- DATA TEST 
C $- : DISCONNECT TEST 
C 4 40$- : INTERRUPT TEST 
C 5 ; MISCELLANEOUS TEST BELOW 
54  0000'CF oF D § MOVAL W*TSTSAZ_TYPE _MI,R4 : GET ADDRESS OF KEYWORD TABLE 
1A D BRB 50$ 3 BRANCH TO COMMON CODE 
54 0000°CF oF d9 8 108: MOVAL W*TSTSAZ_TYPE_CO,R4 ; GET ADDRESS OF KEYWORD TABLE 
wo D BRB 50$ ; BRANCH TO C 
54 0000'CF of E 29 208: MOVAL W*TSTSAZ_TYPE_DA,R4 ;  H ae Te OF KEYWORD TABLE 
oc (1 E & BRB 50$ : BRANCH TO C 
54 OO00°CF ODE E ‘§ 30S: MOVAL W*TSTSAZ_TYPE_DI,R4 : GET ADDRESS OF KEYWORD TABLE 
05 11 EC BRB 50$ ; BRANCH TO COMMON 
54 0000°CF 43 ee $08: MOVAL W*TSTSAZ_TYPE_IN,R4 ; GET ADDRESS OF KEYWORD TABLE 
00 4 F i 50$: BSBW TSTSMA ; FIND TABLE I mete we KEYWORD 
QOOO'CF 5§ fe ° 4 278 pynts R5,W*TSTSGB_TYPE 3 eae MESSAGE TYPE 
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vouso00 5 TSTSNEXTCHAR © EXAMIN NEXT CHARACTER "$28 : Pa 9Be 80: $3: 3 DISD TR. Sk SRC tiD TS SPA ase. MAR; 1 


4 -SBTTL TSTSNEXTCHAR - nt | NEXT CHARACTER 


FC 
O00002FC *PSECT TSTSCODE 
fe 3; ++ 
FC : + FUNCTIONAL DESCRIPTION: 
FC @ : TSTSNEXTCHAR ATIEMPTS TO EXAMINE THE NEXT CHARACTER IN T 
FC 6 : BUFFER. Ir TH OF THE BUFFER HAS BEEN REACHED, TSTSNEXTCHAR 
FC : SIGNALS END OF CINE CONDITION; OTHERWISE THE NEXT CHARACTER 
FC 8 ; FOUND I$ RETU RNED ALONG WITH A VALUE INDICATING WHAT TYPE OF 
re : CHARACTER IT IS. 
FC ; CALLING SEQUENCE: 
FC es ; BSB/JSB TSTSNEXTCHAR 
FC 65 : INPUT PARAMETERS: 
FC 83 : RB THE ADDRESS OF THE NEXT CHARACTER IN THE BUFFER 
FC 68 : Ro THE ADDRESS OF THE END OF THE BUFFER + 1 
FC 20 : IMPLICIT INPUTS: 
FC 2 ; NONE 
FC vi : OUTPUT PARAMETERS: 
FC i: : RO RESULT WHERE : 
O2FC «577: 0 = END OF LINE OR CHARACTER IS AN EXCLAMATION OR DASH 
O2FC 28 : 1 = CHARACTER IS A SLASH 
FC 579: : = CHARACTER IS AN EQUAL SIGN OR COLON 
FC 80 ; : = CHARACTER IS A SPACE OR TAB 
FC | 5581; 4 = CHARACTER 1S NONE OF THE AB 
FC Be : R1 THE CHARACTER EXAMINED (0 0 m SNULL IF END OF LINE) 
FC 83 RB UPDATED NEXT CHARACTER POINTE 
FC 5 : IMPLICIT OUTPUTS: 
FC § ; NONE 
FC 5 > COMPLETION CODES: 
FC 31 F NONE 
FC 38 + SIDE EFFECTS: 
FC 595: NONE 
FC 3% ; 
oe 
FC 3 TSTSNEXTCHAR: : ; CONTROL POINT 
0 D4 OF 690 CLRL. RO ; INITIALIZE RETURN VALUE 
1 04 O2F CERL R1 > SET R1 TO “NULL 
eeeee RO = 0 
59 58 D4 5 CMPL RB Ro ; END OF COMMAND LINE? 
f vA BEQLU 1 f : YES 
51 9A 5 MOVZBL (R8)+,R1 : GET NEXT CHARACTER 
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AX/VMS Macro V04-0 
DTSDTR.S 
; 1S IT AN EXCLAMATION PO 
VeSiy E REST OF Line. 
I DASH? 


P=198e 00:82:35 


DA 
tis! " VONORE REST OF LINE 


INCR wy p+ Ma VALUE 
IS IT A SLASH? 


me AOE tet a a 


E 
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$s 
E 
$ 
E 
N 
Ss 
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$s 
E 
Y 
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s 
C 
s 
S 
C 
S 
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REMENT RETURN VALUE 
IT AN EQUALS_SIGN? 
I 


T A COLON? 
ay! A 3 a VALUE 
IT A SPACE? 

IT A TAB? 


at NONE OF THE ABOVE 


a 
Re} DTSPARS a 


TRTSRI SPARSE 


= PARS 
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DTS COMMAND LIN 
TSTSMATCH = KEYWORD MAT H ROUTINE 


SSS SSS SSS SS SS SSS SSO SSS 
PDUs Be Be BS BB EE EWN III 


aoe 
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MCRESIBES SABER BHT. MSE APSE 


SOT TST ae = KEYWORD paren ROUTINE 
-PSECT TSTSCODE NOWRT 


i++ 
; FUNCTIONAL DESCRIPTION: 


TSTSMATCH SEARCHES THE SPECIFIED KEYWORD TABLE FOR A MATCH WITH 
THE SPECIFIED KEYWORD STRING. IF A MATCH IS FOUND, THE INDEX 
F THE MATCHING TABLE ENTRY IS RETURNED; OTHERWISE CONTROL IS 

TRANSFERRED TO AN ERROR ROUTINE. THE END OF THE TABLE IS MARKED 

BY A NULL KEYWORD ENTRY, I.E., A NULL COUNTED ASCII STRING. 
CALLING SEQUENCE: 

BSB/JSB TSTSMATCH 
INPUT PARAMETERS: 

R4 ADDRESS OF THE KEYWORD TABLE TO SEARCH 

R6 ADDRESS OF THE KEYWORD STRING TO MATCH AGAINST THE TABLE 
IMPLICIT INPUTS: 

NONE 


OUTPUT PARAMETERS: 


R5 THE INDEX OF THE MATCHING TABLE ENTRY IF A MATCH IS FOUND; 


OTHERWISE UNDEFINED. 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
CONTROL IS TRANSFERRED TO PARSE_ERROR IF AN ERROR IS DETECTED. 


TSTSMATCH: : : CONTROL POINT 
PUSHR #*M<RO,R1,R2,R3,R4> : SAVE REGISTERS 
CLRL RS t INITIALIZE RETURN VALUE 
10$: MOVE (R4)+,R0 $ GET # OF SIGNIFICANT CHARACTERS 
BEQLU 30S : END OF TABLE IF ZERO 
CMPCS RO, (R4), (RO) + DO STRINGS MATCH? 
BEQLU «= 208 : YES 
ADDLS RO,RILR4 : SET POINTER TO NEXT ENTRY 
INCL OR + INCREMENT TABLE INDEX 
BRB 108 + TRY AGAIN 
20S: POPR #°M<RO,R1,R2,R3,R4> : RESTORE REGISTERS 
30$:  BRW PARSE_ERROR + BRANCH TO ERROR ROUTINE 


J 6 
TucbTe= CONVERT UNSIGNED DECIMAL 'S-SEP=1984 00:92:85 EDTSDTR.SREDDTSPARSE.man;1 2% {8 


~SBTTL ITSTSCVTU_DTB - comer’ UNSIGNED DECIMAL TO BINARY 
52  O000°CF ODE 


i ia ht 


= 


-PSECT TSTSCODE™ 


;+4 
; FUNCTIONAL DESCRIPTION: 


TSTSCVTU ois. ONVERTS AN UNSIGNED ASCII STRING OF 1 TO 8 DECIMAL 
DIGITS TO A 32-BIT BINARY VALUE. IF THE RESULTANT VALUE EXCEEDS 
THE GIVEN faite CONTROL IS TRANSFERRED TO AN ERROR ROUTINE. 


; CALLING SEQUENCE: 
; BSB/JSB TSTSCVTU_DTB 
; INPUT PARAMETERS: 


a3 LENGTH OF ASCII STRING 
R MAXIMUM VALUE 


| 
| 
IMPLICIT INPUTS: 
| 
| 


: OUTPUT PARAMETERS: 

R2-R5 DESTROYED 

4 teruauelee OF STRING 
IMPLICIT OUTPUTS: 

: NONE 

: COMPLETION CODES: 

i NONE 

; SIDE EFFECTS: 


CONTROL IS TRANSFERRED TO PARSE_ERROR IF AN ERROR IS DETECTED. 


3 tI I I I A M@QOODOOOOCOOOOOOOOOOOOWC 
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: TSTSGT_VALUE = ASCII STRING TO CONVERT 


con 
e 


TSTSCVTU_DTB:: 


ONTROL POINT 
MOVAL wW*TSTSGT_VALUE,R2 


3 ¢ 
; GET ADDRESS OF ASCII STRING 


NNN SEDI POOP SO 


TV OS OR OS ON ON OR OR OR On a a a a an a a a a at at a a a a a os ss ss Ss Ss Ss Ss 2 ss ss ss ss ss Ss es a es 


PUPU PV LULVPULUPUS VIVO USUI SUSU USSSA USUI 


3 THE ASCII STRING IS STORED IN REVERSE ORDER, SO THE POINTER IS PLACED 
: ONE PAST THE END OF THE STRING. THEREFORE, fHE STRING IS SCANNED IN 
+ REVERSE ORDER TO OBTAIN THE LEAST-SIGNIFICANT TO MOST~SIGNIF ICANT 
8 > CHARACTERS, 
tt 
i 4 ADDL2 R RR : ADD STRING LENGTH TO POINTER 
4g CMPB. RS .# + IS STRING TOO LONG? 
4 BctRU 208 : YES 
9A 44 MOVZBL #1,R4 t SET-UP DIGIT PLACE VALUE 
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TSTSDTSPARSE 


Psect synopsis -SEP-1 SRCIDTSPARSE .MAR; 1 


Porson ren amem emo} 


! Psect synopsis ! 
poe eee mewn enn wee + 


PSECT name Allocation PSECT No. Attributes 
-)» 00 ¢ 9.3 NOPIC USR CON ABS ~_ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
‘ 1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE R&D WRT NOVEC BYTE 
899.) 02 ¢ 2.) NOPIC USR CON REL LCLN EXE RD NOWRT NOVEC BYTE 


ABS 90000 ( 
$aBss 9000 0 ( 
TSTSCODE 0000 ( 


~ 


+ + 
; Performance indicators ; 


Phase Page faults CPU Time Elapsed Time 


Initialization 34 00:00:00.05 0: +) 79 
Command processing We : 8: 0.60 8: 0:04.84 
Pass 21 :00:06.14 :00:16.75 
Symbol table sort 9 0:00:00.24 0:00: 0.¢6 
Pass 2 14 B: 8: .07 0:00:05. 

Symbol table output 13 :00:00.09 0:00:00.11 
Psect synopsis output 0:00:00.03 B pa: 0.03 
Cross-reference output 0: te Ba 0: 9-98 
Assembler run totals 52 0:00:09. 0:00:29.38 


ihe york tng set Limit was 1350 pages. 
29598 bytes (58 pages) of virtual memory were used to buffer the intermediate code. 
There were 20 pages of symbol table space allocated to hold 200 non-local and 24 local symbols. 
89° source lines were read in Pass 1, producing 21 object records in Pass 2. 
pages of virtual memory were used to define 19 macros. 


+ 
; Macro Library statistics : 


Macro Library name Macros defined 


~$255$DUA28: CoTspTR OBJJDTSDTR- MLB; 1 é 
$255$DUA28:(SYSLIBJSTARLET.MLB; 6 
TOTALS (all Libraries) 1 


223 GETS were required to define 12 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:DTSPARSE/OBJ=OBJ$:DTSPARSE MSRC$:DTPREF IX/UPDATE=(ENHS$:DTPREF IX) +MSRC$:DTSPARSE/UPDATE=(ENHS$:DTSPARSE) 


= PARSE DTS COMMAND LINE Pr 1 ~$E0=1 386 Oh g3:31 YT aR Macro YOR = 00 Page 19 
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